#!/usr/bin/perl

use v5.10.1;
use strict;

use Getopt::Long;

my $verbose;

GetOptions ("length=i" => \(my $length=24),    # numeric
     "file|f=s"   => \(my $data="file.dat"),      # string
     "verbose"  => \$verbose)   # flag
or die("Error in command line arguments\n");

say "length::$length, data::$data, verbose::$verbose";
# say "h::$help";

 